MENU -> Run -> Run
========================================

В этом примере показан процесс загрузки форм при запуске приложения.
Пример кода помещается в исходный файл проекта (* .dpr). Чтобы увидеть исходный код проекта,
выберите View->Project Source.

Перед использованием примера кода вам нужно будет настроить свой проект,
выполнив следующие действия:

Добавьте четыре дополнительные формы в проект по умолчанию.
Поместите TProgressBar в форму Form5
Выберите пункт меню Project->Options->Forms и поместите Form5 в список доступных форм.
Измените код файла проекта (*.dpr), чтобы он выглядел как в примере.

begin
  Application.Initialize;
  with TForm5.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;   // show a splash screen contain ProgressBar control
    Update; // force display of Form5
    Application.CreateForm(TForm1, Form1);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm2, Form2);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm3, Form3);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm4, Form4);
    ProgressBar1.StepBy(25);
  finally
    Free;
  end;
  Application.Run;
end.